new_bike_pred_tbl <- get_new_bike_price(
data = bikes_tbl,
bike_model = "Dual Sport+ 2 Stagger",
bike_year = 2023,
.ml_model = "RANDOM FOREST",
return_fmt = FALSE
)get_price_prediction_data(bikes_tbl, new_bike_pred_tbl) %>%
get_price_prediction_plot()# new_bike_tbl %>%
# get_new_bike_price_table()